home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 112 / SGDS 112.2mg / SDGS.112 / B / SHATTERSTAR (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-01-07  |  8.4 KB  |  309 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1988
  2. 100  PRINT  CHR$(21): IF  PEEK(176) >63  THEN  PRINT "TOO BIG. HGR2 WILL KILL LAST LINES.": STOP 
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): LOMEM: 24576
  4. 130  CALL 2260: REM GSMONO
  5. 140  POKE 104,15: GOTO 1
  6. 150  CALL 2281: REM GSCOLR
  7. 160  PRINT  CHR$(4)"BYE"d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  <<CTRL-0x09> IF 1 GET  PLOT  SGN<CTRL-0x09> SPEED= 3 DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  PLOT <CTRL-0x09> J<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN>H ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  PLOT <CTRL-0x09> -  HGR2 u ONERR %  TO <UNKNOWN TOKEN> DEL & ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL '<CTRL-0x18> ONERR  e$e& DEL & SPEED= 
  11. 3593  PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HLIN <CTRL-0x09> PLOT  HLIN <CTRL-0x09> VTAB 
  12. 3517 <CTRL-0x0b>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT <UNKNOWN TOKEN><CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  13. 64333 <CTRL-0x09> COLOR= 
  14. 9873 <CTRL-0x18> SPEED= <CTRL-0x04>e' DEL ' LEFT$ TAN<CTRL-0x08> =  > ?<UNKNOWN TOKEN> -<CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0f> -<CTRL-0x14><UNKNOWN TOKEN>"h DEL <UNKNOWN TOKEN> ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L +<CTRL-0x09> SPEED= 
  15. 8837  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL #L +<CTRL-0x09>
  16. 3084 <CTRL-0x0c>
  17. 13056 33
  18. 4671 <CTRL-0x12>?<CTRL-0x12>><CTRL-0x0b><CTRL-0x1e>4<CTRL-0x1f>3<CTRL-0x18><CTRL-0x0c><CTRL-0x06>3>3<CTRL-0x06>3>
  19. 3096 
  20. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x18>
  21. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x06><CTRL-0x1e><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x0c><CTRL-0x1c><CTRL-0x18><CTRL-0x0c>
  22. 0 
  23. 28 
  24. 3096 <CTRL-0x06><CTRL-0x03>
  25. 13107 33<CTRL-0x0c>
  26. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  27. 12339 <CTRL-0x0c><CTRL-0x06>?
  28. 7216 00<CTRL-0x1f>
  29. 13107 ?00
  30. 7939 00<CTRL-0x1f>
  31. 7939 33<CTRL-0x1e>
  32. 6168 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  33. 7731 33<CTRL-0x1e>
  34. 13107 >0<CTRL-0x1e>
  35. 3072 
  36. 6144 <CTRL-0x0c>
  37. 1548 <CTRL-0x0c><CTRL-0x18>
  38. 30 <CTRL-0x06><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  39. 6168 <CTRL-0x0c>
  40. 7680 3;;<CTRL-0x03><CTRL-0x1e>
  41. 13107 ?33
  42. 7987 33<CTRL-0x1f>
  43. 819 <CTRL-0x03>3<CTRL-0x1e>
  44. 13107 33<CTRL-0x1f>
  45. 3843 <CTRL-0x03><CTRL-0x03>?
  46. 771 <CTRL-0x0f><CTRL-0x03><CTRL-0x03>
  47. 771 33>
  48. 13107 ?33
  49. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  50. 12336 03<CTRL-0x1e>
  51. 3871 <CTRL-0x1f>33
  52. 771 <CTRL-0x03><CTRL-0x03>?
  53. 16191 333
  54. 13107 333
  55. 13107 33<CTRL-0x1e>
  56. 13107 <CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  57. 13107 3?<CTRL-0x1e>8
  58. 7987 <CTRL-0x1f>3
  59. 7683 00<CTRL-0x1f>
  60. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  61. 13107 33<CTRL-0x1e>
  62. 13107 3<CTRL-0x1e><CTRL-0x0c>
  63. 13107 ??3
  64. 3102 <CTRL-0x1e>33
  65. 13107 <CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  66. 6192 <CTRL-0x06><CTRL-0x03>?
  67. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>0
  68. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3
  69. 3100 <CTRL-0x18>>333>
  70. 13087 33<CTRL-0x1f><CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x03><CTRL-0x1e>
  71. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  72. 1542 <CTRL-0x1f><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e>
  73. 13107 33
  74. 3584 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  75. 6144 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e>
  76. 3871 <CTRL-0x1f>3
  77. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>???33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>333<CTRL-0x1f><CTRL-0x03>
  78. 13107 3>0
  79. 771 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  80. 1567 <CTRL-0x06><CTRL-0x06><CTRL-0x1c>3333>333<CTRL-0x1e><CTRL-0x0c>33???3<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  81. 3096 <CTRL-0x06>?
  82. 3596 <CTRL-0x0e><CTRL-0x0c><CTRL-0x18>
  83. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  84. 7196 <CTRL-0x0c><CTRL-0x06>
  85. 32560 0<CTRL-0x18>
  86. 19456 3<CTRL-0x0d>  GET  COS <UNKNOWN TOKEN> ASC0<CTRL-0x1f> TAN<CTRL-0x04> GOSUB <CTRL-0x1b> CLEAR +<CTRL-0x0d> DEL <CTRL-0x07> CLEAR /<CTRL-0x0d> DEL <CTRL-0x06> SPEED= <CTRL-0x0e> DEL ' SPEED= 
  87. 12960  RETURN <CTRL-0x06> HGR & GR <CTRL-0x10><UNKNOWN TOKEN>`<CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e>3f SCALE=  ^ VTAB <CTRL-0x03> DIM <CTRL-0x06>  GET  COS <UNKNOWN TOKEN> ASC PR#  RESUME <CTRL-0x06> XDRAW 
  88. 50928 <CTRL-0x03>0}  NOT <CTRL-0x02>0y ONERR <CTRL-0x01> -<CTRL-0x03> HGR2 s<CTRL-0x18>e<CTRL-0x03> -) GOSUB l ONERR 
  89. 26256 <CTRL-0x18>e<CTRL-0x02> -<CTRL-0x19> GOSUB _ DEL # ONERR <CTRL-0x02> DEL " ONERR <CTRL-0x01> DEL ! ONERR <CTRL-0x03> DEL   ASC  ASC"  NOT !  NOT !  ASC<CTRL-0x0d> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE <CTRL-0x1b><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN> VTAB <CTRL-0x03> CLEAR <CTRL-0x17><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  ASC<CTRL-0x0d> ONERR <CTRL-0x02> AT # GOSUB <CTRL-0x0a> COLOR= <CTRL-0x08> GR    STEP <CTRL-0x0d> = <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE 
  90. 51718  = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN>  NOT # X<UNKNOWN TOKEN>` INPUT <CTRL-0x06> ONERR <CTRL-0x09> LOMEM: <CTRL-0x01> GR  HGR <UNKNOWN TOKEN> GR  ONERR <CTRL-0x08> HGR <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> ONERR <CTRL-0x07> HGR <UNKNOWN TOKEN><CTRL-0x18> ONERR <UNKNOWN TOKEN>i<CTRL-0x04> DEL <UNKNOWN TOKEN> LOMEM: <CTRL-0x06>` ONERR <CTRL-0x02> ASC<CTRL-0x02>  TO <UNKNOWN TOKEN> ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> ONERR (e<CTRL-0x03> DEL <UNKNOWN TOKEN>`
  91. 32639 <CTRL-0x07>
  92. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  93. 30720 <CTRL-0x1f>
  94. 24576 <CTRL-0x03>
  95. 24959 sasasasasasasasysy<CTRL-0x03>
  96. 32639 <CTRL-0x07>
  97. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  98. 30720 <CTRL-0x0f>
  99. 25471 yO<CTRL-0x1c>
  100. 6527 L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19><CTRL-0x1c>
  101. 20351 cc<CTRL-0x0f>
  102. 32639 <CTRL-0x03>
  103. 26495 sgsgsgsgsgsgsgsgsgsgp<CTRL-0x07>e
  104. 0  REM  **********************
  105. 1  REM  *                    *
  106. 2  REM  * SHATTERSTAR        *
  107. 3  REM  * -----------        *
  108. 4  REM  * By Russ Nielson    *
  109. 5  REM  * Made: Jan/Feb 1990 *
  110. 6  REM  *                    *
  111. 7  REM  **********************
  112. 8  REM 
  113. 9  CALL 2281: REM GS COLOR
  114. 10  HIMEM: 38400: LOMEM: 36387
  115. 12  ONERR  GOTO 1040
  116. 15  VTAB 5: HTAB 2: HCOLOR= 5
  117. 20  PRINT "Please wait... Loading in progress..."
  118. 25  HPLOT 0,30 TO 279,30
  119. 26  HPLOT 0,41 TO 279,41
  120. 30 D$ =  CHR$(4)
  121. 35 E$ = D$ +"BLOADSHATTER."
  122. 40  PRINT E$"SHAPES"
  123. 50  PRINT E$"OBJ"
  124. 60  PRINT D$"BLOADHIRES.TABLE2,A$300,L$FF": PRINT D$"BLOADHIRES.TABLE2,A$2A00,B$100,L$FF"
  125. 65  CALL 26541: REM GS SLOW
  126. 70 F$ = "SHATTER.SCORES": PRINT D$"OPEN"F$: PRINT D$"READ"F$: FOR D = 1 TO 10: INPUT N$(D),H(D): NEXT : PRINT D$"CLOSE"
  127. 80  RESTORE : DATA Play Game,See Instructions,See High Scores,Controls,Change Keys,Quit Game,Continue Game
  128. 85  DATA  First,Second,Third,Fourth,Fifth,Sixth,Seventh,Eighth,Ninth,Tenth
  129. 86  DATA  Up,Down,Left,Right,Stop,Rapid fire,Norm. fire
  130. 90  FOR D = 1 TO 7: READ O$(D): NEXT : FOR D = 1 TO 10: READ P$(D): NEXT : FOR D = 1 TO 7: READ CK$(D): NEXT 
  131. 100  POKE 35888,1: POKE 35868,1
  132. 110  POKE 35867,0:S = 1:C = 0
  133. 115 A$ =  CHR$(126):S$ = " "
  134. 116 K = 49152:VA = 36380
  135. 117 SE$ = "QZ" + CHR$(8) + CHR$(21) +"A, ": FOR D = 1 TO 7: POKE VA +(D -1), ASC( MID$ (SE$,D,1)) +128: NEXT 
  136. 119  REM  ------------
  137. 120  REM  OPTIONS MENU
  138. 121  REM  ------------
  139. 130  CALL 25085
  140. 140 N = 6 +(( PEEK(35868) = 0) *(C >0))
  141. 150  HCOLOR= 2: GOSUB 990
  142. 160  INVERSE : VTAB 2: HTAB 2: PRINT  SPC( 6)"SHATTERSTAR OPTIONS MENU" SPC( 7): NORMAL 
  143. 170  VTAB 6: HTAB 5: PRINT "Please select with the ARROWS..."
  144. 180  FOR D = 1 TO N: VTAB 7 +D: HTAB 5: PRINT "( ) "O$(D): NEXT 
  145. 181  IF N = 7  THEN  VTAB 14: HTAB 22: PRINT ": "C" Left"
  146. 185 D =  PEEK(35867): GOSUB 830
  147. 186  POKE 35840,44: POKE 35846,9
  148. 187  POKE 35847,160: CALL 24725
  149. 190  VTAB S +7: HTAB 6: PRINT A$
  150. 200  IF  PEEK(K) <128  THEN 200
  151. 210  GET M$:M =  ASC(M$)
  152. 220  VTAB S +7: HTAB 6: PRINT S$
  153. 230  IF M = 8  OR M = 11  THEN S = S -1: IF S <1  THEN S = N
  154. 240  IF M = 21  OR M = 10  THEN S = S +1: IF S >N  THEN S = 1
  155. 250  VTAB S +7: HTAB 6: PRINT A$
  156. 260  IF M = 13  THEN  POKE 35848,160: POKE 36379,40: CALL 24903: GOTO 280
  157. 270  GOTO 200
  158. 280  ON S GOTO 290,500,700,800,1060,900,1000
  159. 289  REM  ---------
  160. 290  REM  PLAY GAME
  161. 291  REM  ---------
  162. 300  POKE 35888,1: CALL 25085
  163. 305 C = 2: REM  CONTINUES
  164. 310  CALL 26526
  165. 314  REM  ---------
  166. 315  REM  GAME OVER
  167. 316  REM  ---------
  168. 320  ON  PEEK(35868) +1 GOTO 325,330,955
  169. 325  INVERSE : VTAB 10: HTAB 20: PRINT  SPC( 11): VTAB 11: HTAB 20: PRINT " GAME OVER ": VTAB 12: HTAB 20: PRINT  SPC( 11): NORMAL 
  170. 330  FOR D = 1 TO 2400: NEXT 
  171. 340  GOSUB 710:S = 1
  172. 350 SC = 0:Y = 1: FOR D = 35861 TO 35856  STEP  -1:SC = SC +( PEEK(D) *Y):Y = Y *10: NEXT 
  173. 360  VTAB 19: HTAB 5: PRINT "Your Score is ";: INVERSE : PRINT " "SC" ": NORMAL 
  174. 370  FOR D = 1 TO 10: IF SC > = H(D)  THEN P = D: GOTO 420
  175. 380  NEXT : VTAB 21: HTAB 5: PRINT "Sorry, No High Score this time."
  176. 390  VTAB 23: HTAB 5: PRINT "Press <RETURN>..."
  177. 400  GET Z$: IF  ASC(Z$) < >13  THEN 400
  178. 410  GOTO 130
  179. 420  VTAB 21: HTAB 2: INVERSE : PRINT " CONGRATULATIONS ";: NORMAL : PRINT "  "P$(P)" place!"
  180. 430  VTAB 23: HTAB 2: INVERSE : PRINT " Name ";: NORMAL : PRINT " ____________________"
  181. 440 V = 23:H = 1:N$ = ""
  182. 445  POKE 49168,0
  183. 450  GOSUB 970
  184. 455  IF (Z = 13  OR Z = 8  OR Z = 127)  AND H = 1  THEN 450
  185. 456  IF Z = 34  THEN 450
  186. 460  IF (Z = 8  OR Z = 127)  AND H = 2  THEN H = 1:N$ = "": VTAB V: HTAB H +8: PRINT "_";: GOTO 450
  187. 465  IF (Z = 8  OR Z = 127)  THEN N$ =  LEFT$(N$, LEN(N$) -1):H = H -1: VTAB V: HTAB H +8: PRINT "_";: GOTO 450
  188. 470  IF Z = 13  THEN 490
  189. 475  IF  LEN(N$) >19  THEN 450
  190. 476  IF Z <32  OR Z >126  THEN 450
  191. 480  VTAB V: HTAB H +8: PRINT Z$;
  192. 485 N$ = N$ +Z$:H = H +1: GOTO 450
  193. 490  FOR D = 10 TO P  STEP  -1:N$(D) = N$(D -1):H(D) = H(D -1): NEXT :N$(P) = N$:H(P) = SC: GOSUB 750
  194. 495  PRINT D$"DELETE"F$: PRINT D$"OPEN"F$: PRINT D$"WRITE"F$: FOR D = 1 TO 10: PRINT N$(D): PRINT H(D): NEXT : PRINT D$"CLOSE": GOTO 130
  195. 499  REM  ------------
  196. 500  REM  INSTRUCTIONS
  197. 501  REM  ------------
  198. 505  GOSUB 510: GOTO 570
  199. 510  CALL 25085: HCOLOR= 5
  200. 520  GOSUB 990: HPLOT 277,0 TO 277,191: INVERSE : POKE 32,0
  201. 530  VTAB 2: HTAB 2: PRINT  SPC( 12)"INSTRUCTIONS" SPC( 13): NORMAL 
  202. 540  POKE 32,1: VTAB 4: HTAB 2
  203. 550  RETURN 
  204. 560  VTAB 23: PRINT "Press <RETURN> to continue..."
  205. 565  GET Z$: IF  ASC(Z$) < >13  THEN 565
  206. 566  GOSUB 510: RETURN 
  207. 570  PRINT  TAB( 4)"You are Shatterstar.  A ship con-": PRINT "structed from alien alloys and armed"
  208. 575  PRINT "with   missles   of   great  power .": INVERSE : PRINT " YOUR MISSION ";: NORMAL : PRINT "  Destroy the Galactic"
  209. 580  PRINT "Leader. This mission is not an  easy": PRINT "one. Waves of attackers,  onslaughts": PRINT "of merciless machines,  and  showers"
  210. 585  PRINT "of enemy fire power  will obliterate": PRINT "you. Battle apon battle,  throughout": PRINT "nine  stages  of  maddening  mayhem,"
  211. 590  PRINT "until the final  confrontation  bet-": PRINT "ween Shatterstar  and  the  Galactic": PRINT "Leader!!!"
  212. 595  GOSUB 560
  213. 600  VTAB 4: HTAB 2: PRINT "How to Play:": PRINT : PRINT "A Joystick is suggested for  maximum": PRINT "playability, but the keyboard may be": PRINT "used. Here is how:"
  214. 605  PRINT : INVERSE : PRINT " JOYSTICK ";: NORMAL : PRINT " moves.": PRINT "Button #0 is normal fire.": PRINT "Button #1 is rapid fire."
  215. 610  PRINT : INVERSE : PRINT " KEYBOARD ": NORMAL : PRINT "Please select the CHANGE KEYS": PRINT "option on the options menu.": PRINT : PRINT 
  216. 615  PRINT : PRINT "<ESC> quits game.   <P> pauses game."
  217. 620  GOSUB 560
  218. 625  VTAB 4: HTAB 2: PRINT "One unit of fuel is used  for every": PRINT "missle fired.  When struck by an ob-": PRINT "ject, fuel is drained  considerably."
  219. 630  PRINT "One ship is lost every time the fuel": PRINT "tank is empty.  (Warning:  When fuel": PRINT "is low, you will not be able to fire": PRINT "any missles until you get more fuel)"
  220. 635  PRINT "For  additional  fuel,  capture  the": PRINT "fuel tank. It looks like this"
  221. 636  POKE 35840,43: POKE 35846,32: POKE 35847,90: CALL 24725
  222. 640  PRINT : PRINT "Most mother ships cannot be shot un-": PRINT "til all other objects are destroyed!": PRINT : PRINT "If you are on a stage and nothing is"
  223. 645  PRINT "happening, move to the bottom of the": PRINT "screen."
  224. 650  GOSUB 560
  225. 655  VTAB 4: HTAB 5: INVERSE : PRINT " SPECIAL TIPS ": NORMAL : PRINT 
  226. 660  PRINT "Stage 6. In the debris shower,  earn": PRINT "points by shooting the debris.": PRINT : PRINT "Stage 7.  To earn more  points,  de-": PRINT "stroy the three enemies  before  the": PRINT "barrier."
  227. 665  PRINT : PRINT "When you first start  the  game  you": PRINT "are alotted five ships.": PRINT "But you continue with only three."
  228. 668  PRINT : PRINT "Extra ship at 10,000!!!"
  229. 670  VTAB 23: HTAB 2: PRINT "Press <RETURN> for menu..."
  230. 675  GET Z$: IF  ASC(Z$) < >13  THEN 675
  231. 680  POKE 32,0: GOTO 130
  232. 699  REM  ---------------
  233. 700  REM  SEE HIGH SCORES
  234. 701  REM  ---------------
  235. 705  GOSUB 710: GOTO 760
  236. 710  CALL 25085: HCOLOR= 1
  237. 720  GOSUB 990
  238. 730  POKE 35840,69: POKE 35846,5
  239. 740  POKE 35847,11: CALL 24725
  240. 741  VTAB 6: HTAB 6: INVERSE : PRINT " IDENTIFICATION ";: HTAB 33: PRINT " SCORE ": NORMAL 
  241. 745  GOSUB 750: RETURN 
  242. 750  FOR D = 1 TO 10: VTAB 7 +D: HTAB 2: PRINT  SPC( 38): VTAB 7 +D: HTAB 3 -(D = 10): PRINT D". "N$(D);: HTAB 33: PRINT H(D): NEXT : RETURN 
  243. 760  VTAB 21: HTAB 5: PRINT "Press <RETURN>..."
  244. 770  GET Z$: IF  ASC(Z$) < >13  THEN 770
  245. 780  GOTO 130
  246. 799  REM  --------
  247. 800  REM  CONTROLS
  248. 801  REM  --------
  249. 810 D =  PEEK(35867):D = D +1: IF D >1  THEN D = 0
  250. 820  POKE 35867,D: VTAB 11: HTAB 18
  251. 825  GOSUB 830: GOTO 200
  252. 830  VTAB 11: HTAB 18: INVERSE : IF   NOT (D)  THEN  PRINT " Joystick "
  253. 840  IF D  THEN  PRINT " Keyboard "
  254. 850  NORMAL : RETURN 
  255. 899  REM  -----
  256. 900  REM  QUIT?
  257. 901  REM  -----
  258. 910  CALL 25085: HCOLOR= 3
  259. 920  GOSUB 990: INVERSE 
  260. 930  VTAB 11: HTAB 14: PRINT " Quit? (Y/N) ": NORMAL : GET Z$
  261. 940  IF Z$ = "Y"  OR Z$ = "y"  THEN 955
  262. 950  GOTO 130
  263. 955  CALL 26572: REM GS FAST
  264. 956  POKE 104,8: GOTO 150
  265. 960  REM  ---------------
  266. 961  REM  FLASHING CURSOR
  267. 962  REM  ---------------
  268. 970  VTAB V: HTAB H +8: PRINT " ": FOR D = 1 TO 20: IF  PEEK(K) <128  THEN  NEXT 
  269. 971  VTAB V: HTAB H +8: PRINT "_": FOR D = 1 TO 20: IF  PEEK(K) <128  THEN  NEXT 
  270. 972  IF  PEEK(K) <128  THEN 970
  271. 973  GET Z$:Z =  ASC(Z$): RETURN 
  272. 987  REM  --------------
  273. 988  REM  COLORED BORDER
  274. 989  REM  --------------
  275. 990  HPLOT 0,0 TO 278,0 TO 278,191 TO 0,191 TO 0,0: HPLOT 1,0 TO 1,191: HPLOT 279,0 TO 279,191: RETURN 
  276. 1000  REM  -------------
  277. 1001  REM  CONTINUE GAME
  278. 1002  REM  -------------
  279. 1010 C = C -1: CALL 24909
  280. 1020  GOTO 320
  281. 1030  REM  ----------
  282. 1031  REM  ERROR TRAP
  283. 1032  REM  ----------
  284. 1040  RESUME 
  285. 1050  REM  -----------
  286. 1051  REM  CHANGE KEYS
  287. 1052  REM  -----------
  288. 1060  CALL 25085: HCOLOR= 6: GOSUB 990: HCOLOR= 3
  289. 1070  INVERSE : VTAB 2: HTAB 13: PRINT " CHANGE KEYS ": NORMAL : PRINT : HTAB 5: PRINT "Current keys are:": GOTO 1100
  290. 1080  FOR D = 0 TO 6: VTAB 6 +D: HTAB 3: PRINT CK$(D +1)" Key";: HTAB 18: PRINT ": ";:Z =  PEEK(VA +D) -128: GOSUB 1090: PRINT  CHR$( PEEK(VA +D) -128): NEXT : RETURN 
  291. 1090  IF Z = 8  THEN  PRINT "left arrow";
  292. 1091  IF Z = 21  THEN  PRINT "right arrow";
  293. 1092  IF Z = 11  THEN  PRINT "up arrow";
  294. 1093  IF Z = 10  THEN  PRINT "down arrow";
  295. 1094  IF Z = 32  THEN  PRINT "space bar";
  296. 1095  RETURN 
  297. 1100  GOSUB 1080: VTAB 15: HTAB 3: PRINT "Would you like to change them? (y/n)"
  298. 1110  GET Z$: IF Z$ = "Y"  OR Z$ = "y"  THEN 1130
  299. 1120  GOTO 120
  300. 1130  VTAB 15: HTAB 3: PRINT  SPC( 36)
  301. 1140  FOR D = 0 TO 6: VTAB 15 +D: HTAB 3: PRINT CK$(D +1)" Key";: HTAB 18: PRINT ": ";
  302. 1150  VTAB 15 +D: HTAB 20: GET Z$:Z =  ASC(Z$): IF Z = 8  OR Z = 21  OR Z = 10  OR Z = 11  OR Z = 32  OR (Z >31  AND Z <128)  THEN  GOSUB 1090: GOTO 1160
  303. 1155  POKE 35848,255: POKE 36379,100: CALL 24903: GOTO 1150
  304. 1160  PRINT  CHR$(Z): POKE VA +D,Z +128
  305. 1170  NEXT : GOTO 1060
  306. 6997  REM  -----------------
  307. 6998  REM  RESET HIGH SCORES
  308. 6999  REM  -----------------
  309. 7000 D$ =  CHR$(4):F$ = "SHATTER.SCORES": PRINT D$"DELETE"F$: PRINT D$"OPEN"F$: PRINT D$"WRITE"F$: FOR D = 1 TO 10: PRINT "": PRINT 0: NEXT : PRINT D$"CLOSE"